home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DTP / DTP_TEX / 3239.ZIP / DVIMTP.ZIP / SKGFSPEC.H < prev    next >
Text File  |  1986-12-15  |  1KB  |  49 lines
  1. /* -*-C-*- skgfspec.h */
  2. /*-->skgfspec*/
  3. /**********************************************************************/
  4. /****************************** skgfspec ******************************/
  5. /**********************************************************************/
  6.  
  7. void
  8. skgfspec()    /* Skip GF font file specials */
  9. {
  10.     BYTE the_byte;
  11.  
  12.     the_byte = (BYTE)nosignex(fontfp,(BYTE)1);
  13.     while ((the_byte >= (BYTE)GFXXX1) && (the_byte != GFPOST))
  14.     {
  15.     switch(the_byte)
  16.     {
  17.     case GFXXX1:
  18.         (void)FSEEK(fontfp,(long)nosignex(fontfp,(BYTE)1),1);
  19.         break;
  20.  
  21.     case GFXXX2:
  22.         (void)FSEEK(fontfp,(long)nosignex(fontfp,(BYTE)2),1);
  23.         break;
  24.  
  25.     case GFXXX3:
  26.         (void)FSEEK(fontfp,(long)nosignex(fontfp,(BYTE)3),1);
  27.         break;
  28.  
  29.     case GFXXX4:
  30.         (void)FSEEK(fontfp,(long)nosignex(fontfp,(BYTE)4),1);
  31.         break;
  32.  
  33.     case GFYYY:
  34.         (void)nosignex(fontfp,(BYTE)4);
  35.         break;
  36.  
  37.     case GFNOOP:
  38.         break;
  39.  
  40.     default:
  41.         (void)sprintf(message,"skgfspec():  Bad GF font file [%s]",
  42.         fontptr->name);
  43.         (void)fatal(message);
  44.     }
  45.     the_byte = (BYTE)nosignex(fontfp,(BYTE)1);
  46.     }
  47.     (void)UNGETC((char)the_byte,fontfp);    /* put back lookahead byte */
  48. }
  49.